home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Light ROM Gold
/
Light ROM Gold.iso
/
arexx
/
modeler
/
absquick.lwm
< prev
next >
Wrap
Text File
|
1993-12-25
|
1KB
|
55 lines
------------------------------begin "MoveAbsQuick.lwm"-------------------
/* CMD: MoveAbsoluteQuick
* $VER: V1.0
*
Move Object by Absolute Co-ords, using Bounding Box center, */
/* By Darren Reid, =A91993 Innovision Strategic Communications. */
libadd =3D addlib("LWMode
lerARexx.port",0)
signal on error
signal on syntax
call SEL_MODE(USER)
box=3Dboundingbox() /* Should check out empty list ...
*/
parse var box n x1 x2 y1 y2 z1 z2
cx=3D(x2+x1)/2
cy=3D(y2+y1)/2
cz=3D(z2+z1)/2
call req_begin 'Move Absolute *Quick*'
id_CX =3D req_addcontrol("Current X:", 'T', cx)
id_CY =3D req_addcontrol("Current Y:", 'T', cy)
id_CZ =3D req
_addcontrol("Current Z:", 'T', cz)
id_NX =3D req_addcontrol("New X:", 'N', 1)
id_NY =3D req_addcontrol("New Y:", 'N', 1)
id_NZ =3D req_addcontrol("New Z:", 'N', 1)
call req_setval(id_NX,cx)
call req_setval(id_NY,cy)
call req_setval(id_NZ,cz)
if (~req_post()) then do
call req_end
exit
end
nx =3D req_getval(id_NX)
ny =3D req_getval(id_NY)
nz =3D req_getval(id_NZ)
call req_end
dx =3D (nx - cx)
dy =3D (ny - cy)
dz =3D (nz - cz)
call MOVE(dx dy dz)
if (libadd) then call remlib("LWModelerARexx.port")
exit
syntax:
error:
=09t=3DNotify(1,'!Rexx Script Error','@'ErrorText(rc),'Line 'SIGL)
if (libadd) then call remlib("LWModelerARexx.port")
=09exit